From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 10 May 2001 11:54:15 +0000 (+0000)
Subject: (browse-url-filename-alist): Allow UNC file
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~40372
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=70a064a956bb6678ecf670ab2dc8a300e6f25b78;p=emacs.git

(browse-url-filename-alist): Allow UNC file
names for MS-Windows and MS-DOS.  From Dan Holmsand
<dan@eyebee.com>.
---

diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index 793ced385e3..ee579d859c1 100644
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -331,7 +331,8 @@ commands reverses the effect of this variable.  Requires Netscape version
     ;; applies.
     ("^/\\([^:@]+@\\)?\\([^:]+\\):/*" . "ftp://\\1\\2/")
     (,@ (if (memq system-type '(windows-nt ms-dos))
-	    '(("^\\([a-zA-Z]:\\)[\\/]" . "file:\\1/"))))
+	    '(("^\\([a-zA-Z]:\\)[\\/]" . "file:\\1/")
+              ("^[\\/][\\/]+" . "file://"))))
     ("^/+" . "file:/")))
   "An alist of (REGEXP . STRING) pairs used by `browse-url-of-file'.
 Any substring of a filename matching one of the REGEXPs is replaced by